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MODULE LIBSCRC TABLE (RTITLE' EsLibrary CR RC ta able genarator' 
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i COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


* 
a 
® 
we 
‘ ® 
is THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + 
is ONLY IN| ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY © 
it OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS” HEREBY 
is TRANSFERRED. * 
® 
i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
ie AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
ix CORPORATION. * 
® 
® 
® 
tt 
*® 
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!® DIGITAL ASSUMES NO reg Se St THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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8 int x SANE aS cated Ae ee 

00 ! 

0031 | 

003 144 

OO a FACILITY: General Utility Library 

0035 1 ' ABSTRACT: 

0036 } 

0037 } 

0038 ! Given a polynomial, a table is constructed which can be 

0039 ! used by the LIBSCRC module for generating the CRC value for an 
7 Bpee input stream. | 
4 0042 ENVIRONMENT: User Mode - AST re-entrant 
4 0044 i AUTHOR: Donald G. Petersen, CREATION DATE: 09-Jan-78 | 
46 0046 1 ' MODIFIED BY: 
47 0047 ! 
48 0048 ; Donald S. Petersen, 09-Jan-78: VERSION 0 | 
49 0049 1:01 = origin 
50 0050 ! 0-02 - Change REQUIRE files for VAX system build. DGP 28-Apr-78 
51 itt ! 0-035 = Change file none to LIBCRCTAB, and change the name o 
26 026 : the require file sim Lor ly JBS 14-NOV-7 
5 005 ! 1-001 - Update version number and Copyright notice. S }6-nOve 78 
54 0054 ! 1-002 - Don't use arithmetic shift for r grt shift. SB 4-Dec-1979 
2? B22 1-005 - Use prologue file. SBL 24-June-198 
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ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
NONE 


88 1 GLOBAL ROUTINE LIBSCRC_TABLE ( ! Build a table for fhe CRC routine 
89 1 POLY ' Adr of CRC polynomial input 
90 1 TABLE) i adr of where table is to be built 
4! } = :NOVALUE = ! No value is returne 
93 FUNCTIONAL DESCRIPTION: 
95 1 i The input polyncatat is used to produce a table with 16 longword entries 
96 1 ! which is the proper format to be used by the LIBSCRC routine for 
44 : calculating the CRC for a data stream. 
99 i FORMAL PARAMETERS: 

1 i poly.rl.r input CRC polynomial 

\ table.wl.ar Adr of where table of 16 longwords 

IMPLICIT INPUTS: 

1 i NONE 

1 ! 

1 : 

1 ! 

1 ‘ NONE 

1 : 

1 ! 

1 ' 

1 4 

1 ! 

1 ‘ 

1 ‘ 

1 : 

1 ! 

1 ! 

1 : 

1 

1 

1 


BEGIN 
MA 


TABLE: REF VECTOR [16], 
¥ tesa REF VECTOR (1); 


temporary 


| 
| 
| 
IMPLICIT OUTPUTS: | 
| 
| 
| 
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1 
1 
1 
1 ! 
1 x, ' used as a flag 
1 INDEX, ! index into the CRC table 
1 a3 ! iteration index for making each entry 
2 INCR INDEX FROM 0 TO 15 DO 
2 BEGIN 
2 TMP = . INDEX; 
5 2 INCR I FROM 1 TO 4 DO 
36 BEGIN 
37 X = .TMP AND 1; 
38 TMP = .TMP<1,31>; =! Equivalent to .TMP * -1 
39 0 IF .x EQL 1 THEN 
40 0 TMP = .TMP XOR .POLYLO) 
41 0 END; 
4¢ 1 TABLEL. INDEX) = .TMP 
4 1 END; 
44 1 RETURN; 
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LIBSCRC_TABLE Library CRC table genarator 16-Sep-1984 00:40:1 AX-11 Bliss-32 V4.0-74 Pa 4 
1-003 ° 10738b-198e 99:38:28 Mere sreiiteckcias 692; e 3 
> 145 0213 1 END; 
.TITLE LIBSCRC_TABLE Library CRC table genarator | 
-IDENT \1-003\ | 
| 
-PSECT _LIBSCODE,NOWRT, SHR, PIC,2 
000C 00000 ENTRY LIBSCRC_TABLE, Save R2,R3 ; 0156 
28 D4 BR ORE CLRL F 8 10 
52 DO 00004 1$ MOVL INDEX, TMP é o¢ 
51 01 00 00007 MOVL : 020 
53 2§ 01 00 EF 44 2$ EXTZV #0, #1 3; 0205 
52 5 1F 01 EF OO0OF EXTZV AE Me, MP ; 0206 
01 53 D1 00014 CMPL 4 “" : 020 
04 12 00017 BNEQ 3 ; 
52 06 «BC cf 0019 XORL2 @POLY, TMP : 0208 
E9 51 04 F3 00010 3$ AOBLEQ g S444 
08 BC40 52 D9 900 1 MOVL TMP, STABLECINDEX) ; 0210 
DA 50 OF F3 00026 AOBLE2 #15, INDEX, 1$ 3 
04 0002A RET ; 0213 
; Routine Size: 43 bytes, Routine Base: _LIBSCODE + 0000 
> «146 0214 
3; «147 0215 0 ELUDOM 
; PSECT SUMMARY 
; Name Bytes Attributes 
; _LIBSCODE 43 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
eroeeooee Symbols eoeeeeon Pages Processing 
File Total Loaded Percent Mapped Time 


$255$DUA28: CSYSLIBISTARLET.L32;1 9776 8 8 581 00:00.7 
=$255$DUA28: CLIBRTL.OBJIRTLLIB.L32;1 36 8 00:00.1 
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Size: 
Run T 
Elaps 
Lines 


Lexemes/CPU-Mir: 100 


Memor 
Compi 
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COMMAND QUALIFIERS 
BLISS/CHECK= (FIELD. INITIAL OPTIMIZE) /NOTRACE/LIS#LISS:LIBCRCTAB/OBJs08JS:LIBCRCTAB MSRC$:LIBCRCTAB/UPDATE=(ENH$:LIBCRCTAB 


co 
ime: 90 
ed Time: 0 
/CPU Min: 


+ 0 data bytes 


Used: 40 page 
ation Complete 
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